0 REM  BACK ISSUE LIST
1 IFL=0THENL=1:LOAD"ROUTINES V4",8,1
2 IFL=1THENL=2:LOAD"SEARCHER",8,1
3 OPEN15,8,15
4 POKE650,255
5 DA$=" --------------------------------------"
6 LI=52016:SU=51206:SD=51209:CL=51203
7 FORC=1TO25:PRINTDA$:NEXT
8 PRINT"[147][154]";:POKE53281,0:POKE53282,9
9 POKE1020,4:POKE1021,24:POKE1022,0:POKE1023,39
10 FI$="BACK ISSUES.T"
20 DM=1000:DIMIN$(DM)
30 GOSUB5000:REMOPENING BLURB
40 GOSUB6000:REMLOAD FILE
45 PRINT"[147]";
50 GOSUB7000:PRINT"";
800 PRINT:FORC1=0TO17:PRINTIN$(C1):NEXT:PRINTIN$(C1);:LP=0
810 POKE646,1:SYSCL:PRINT"";
850 GETK$:PRINT"[158]";:IFK$=""THEN850
855 IFK$="F"THENGOSUB20000
860 IFK$="[145]"ORK$=""ORK$="[134]"ORK$="[138]"THENGOSUB11000:GOTO850
865 IFK$="[137]"ORK$="[133]"THENFORCC=1TO18:GOSUB11000:NEXT:GOTO850
870 IFK$=""ORK$="[157]"ORK$="[139]"ORK$="[135]"THENGOSUB10000:GOTO850
875 IFK$="[136]"ORK$="[140]"THENFORCC=1TO18:GOSUB10000:NEXT:GOTO850
877 IFK$="P"THENGOSUB2000:PRINT"[147]":GOTO50
878 IFK$="X"ORK$="[216]"THEN63000
880 PRINT"[158]";:GOSUB7000:PRINT"[146][154]";:GOSUB7000:GOTO850
1000 :
2000 REM HARD(null)
2010 PRINT""DA$:PRINTDA$:PRINT"[212]URN ON YOUR PRINTER AND PRESS[160]<RETURN>"
2011 GETK$:IFK$=""THEN2011
2012 IFK$<>CHR$(13)THEN2090
2015 PRINT"  [208]RESS ANY KEY TO STOP PRINTING.      "
2020 PRINT"";
2030 OPEN4,4,7
2040 FORCP=0TOLC:GETK$:IFK$<>""THEN2070
2050 PRINT#4,SPC(20);IN$(CP)
2060 NEXT
2070 PRINT#4:CLOSE4
2090 RETURN
5000 PRINT""DA$:PRINT" --[204]OADING THE [204][207][193][196][211][212][193][210] [194]ACK [201]SSUES.--"
5010 PRINT" ----------[208]LEASE BE PATIENT.----------"
5045 PRINT:PRINT:PRINT"[208]RESS 'X' TO EXIT NOW WITHOUT READING"
5050 PRINT:PRINT"THIS ARTICLE."
5060 RETURN
6000 OPEN8,8,8,FI$
6030 LL=0:POKE781,8:SYS65478
6040 SYSLI,B$:IN$(LL)=MID$(B$,1)
6044 IFPEEK(198)<>0THENIFPEEK(631)=88THEN6100
6045 IFST=0THENLL=LL+1:GOTO6040
6100 SYS65484:CLOSE8:CLOSE15
6105 LC=LL
6110 RETURN
6150 SYS65484:CLOSE8:CLOSE15
7000 PRINT" -----[208]RESS F1-F7 KEYS TO MOVE TEXT----"
7005 PRINT" -------[208]RESS 'P' TO PRINT TEXT.-------"
7010 PRINT" ----------[208]RESS 'X' TO EXIT-----------"
7011 PRINT" ----------[208]RESS 'F' TO FIND-----------"
7020 RETURN
10000 POKE646,1:SYSCL:PRINT"";
10010 IFLP<LC-15THENSYSSU:LP=LP+1:PRINT""IN$(LP+18):RETURN
10015 POKE53280,RND(1)*15
10020 RETURN
11000 POKE646,1:SYSCL:PRINT"";
11010 IF LP>0THENSYSSD:LP=LP-1:PRINT""IN$(LP):RETURN
11015 POKE53280,RND(1)*15
11020 RETURN
20000 REM   FIND AN ELEMENT
20010 PRINT"[147]"SPC(10)"FIND AN ELEMENT"
20020 PRINT""
20030 INPUT"FIND WHAT";F$:PRINT"[147]"
20035 FORDL=1TO100:NEXT:POKE198,0
20040 FORFS=0TOLL:IN$=IN$(FS):POKE53280,RND(1)*15
20045 IFPEEK(198)<>0THENFS=LL:GOTO21000
20050 SYS49411IN$:SYS49411F$
20060 M%=0:S%=0:SYS49408F$IN$M%S%
20065 IFM%=0THEN21000
20070 IFM%<>0THENPOKE53280,6:GOSUB22000
20072 IFM%<>0THENPRINT""SPC(6)"[195][146]ONTINUE OR [209][146]UIT";
20073 IFM%<>0THENPRINT" SEARCHING?"
20080 POKE198,0:WAIT198,1:GETK$:POKE198,0
20090 IFK$="C"THEN21000
20100 IFK$="Q"THENFS=LL:GOTO21000
20110 GOTO20080
21000 NEXT FS
21500 PRINT"  [198][201][206][201][211][200][197][196]..[208]RESS A KEY TO CONTINUE":POKE198,0:WAIT198,1:POKE198,0
21600 POKE646,0:SYSCL:PRINT"[147]";:GOSUB7000:FORZZ=LPTOLP+18:PRINTIN$(ZZ):NEXT:RETURN
22000 REM   UPDATE FOUND SCREEN
22010 POKE646,0:SYSCL:PRINT"";:LP=FS-9:FL=FS+8
22020 IFLP<0THENLP=0:FL=17:GOTO22040
22030 IFFL>LLTHENFL=LL+8
22040 PRINT"":FORZZ=LPTOFL
22050 IFZZ=FSTHENPRINTLEFT$(IN$(ZZ),M%-1);
22051 IFZZ=FSTHEN PRINT""MID$(IN$(ZZ),M%,LEN(F$))"[146]";
22052 IFZZ=FSTHENPRINTMID$(IN$(ZZ),M%+LEN(F$)):GOTO22055
22054 PRINTIN$(ZZ)
22055 NEXTZZ
23000 RETURN
24000 :
25000 :
63000 POKE650,128
63010 PRINT"[147]LOAD"CHR$(34)"HELLO"CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:END